;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;
(DEFUN C:SELAYLIST ()
  (SETQ this_ss (SSGET))
  (SETQ this_len (SSLENGTH this_ss)
        cnt 0
  )
  (SETQ this_laylist NIL)
  (WHILE (< cnt this_len)
    (SETQ this_item (ENTGET (SSNAME this_ss cnt)))
    (IF (MEMBER (CDR (ASSOC 8 this_item)) this_laylist)
      NIL
      (SETQ this_laylist (APPEND this_laylist (LIST (CDR (ASSOC 8 this_item)))))
    )
    (SETQ cnt (1+ cnt))
  )
  (FOREACH n this_laylist (PRINC "\n")(PRINC n)(PRINC))
  (PRINC)
)